10 HGR : HGR2 : HCOLOR= 3: FOR A = 1 TO 2: POKE 230,A *32: HPLOT 4,5 TO 56,5 TO 56,42 TO 4,42 TO 4,5: HPLOT 9,59 TO 14,44 TO 46,44 TO 51,59: NEXT : FOR B = 0 TO 9E9:F = F = 0:Y = 8 + RND(1) *32:P = PEEK(49152) -177: POKE 228, RND(P) *256 *(P <8):Q = PEEK(49249) <128: POKE 49237 -F *Q,Y: HPLOT 7,Y TO 53,Y: NEXT